<%
sub auth(flag)
	If Not Session("MM_Reg")="ccrecord" Then
		response.write("您没有登陆，请登陆后使用!<br>")
		response.write "<a href='javascript:history.go(-1)'> << 返回上一页 </a> 或者"
		response.write "<a href='login.htm'> 登录 </a><br> "
		response.end
	End If
	select case flag
		case 0 
			err_c=""
		case 1 
			err_c="查询"
		case 2 
			err_c="查看"
		case 3
			err_c="添加"
		case 4
			err_c="编辑"
		case 5 
			err_c="删除"
		case 15 
			err_c="管理"
		
	end select
	if cint(Session("MM_Flag"))<flag then
		response.write("您没有"&err_c&"权限！您的权限为"&Session("MM_Flag")&"<br>")
		response.write "<a href='javascript:history.go(-1)'> << 返回上一页</a><br> "
		response.End
	end if

end sub
%>
